﻿Public Class BEpiso

#Region "Declaración de variables"

    Private codPiso As Integer
    Private codCongelador As Integer
    Private capacidad As Integer
    Private disponible As Integer
    Private estado As Boolean

#End Region

    Sub New()
    End Sub

    Sub New(ByVal pCodPiso As Object, _
           ByVal pCodCongelador As Object, _
           ByVal pCapacidad As Object, _
           ByVal pDisponible As Object, _
           ByVal pEstado As Object)

        Me._codPiso = pCodPiso
        Me._codCongelador = pCodCongelador
        Me._capacidad = pCapacidad
        Me._disponible = pDisponible
        Me._estado = pEstado

    End Sub

    Public Property _codPiso() As Integer
        Get
            Return Me.codPiso
        End Get
        Set(ByVal value As Integer)
            Me.codPiso = value
        End Set
    End Property

    Public Property _codCongelador() As Integer
        Get
            Return Me.codCongelador
        End Get
        Set(ByVal value As Integer)
            Me.codCongelador = value
        End Set
    End Property

    Public Property _capacidad() As Integer
        Get
            Return Me.capacidad
        End Get
        Set(ByVal value As Integer)
            Me.capacidad = value
        End Set
    End Property

    Public Property _disponible() As Integer
        Get
            Return Me.disponible
        End Get
        Set(ByVal value As Integer)
            Me.disponible = value
        End Set
    End Property


    Public Property _estado() As Boolean
        Get
            Return Me.estado
        End Get
        Set(ByVal value As Boolean)
            Me.estado = value
        End Set
    End Property
End Class
